home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / dskut / disktime.zip / BANNER.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-02  |  697b  |  36 lines
  1. Procedure Banner;
  2. {
  3.     This procedure prints the banner for the disk time program
  4.  
  5.     Input        None
  6.  
  7.     Output       None
  8.  
  9.     Strategy     (1)      Clear the screen
  10.  
  11.                  (2)      Print banner
  12.  
  13. }
  14. Begin
  15.      ClrScr;
  16.      Writeln;
  17.      NormVideo;
  18.      Write('         My Utilities(tm)');
  19.      LowVideo;
  20.      Write(' by Ya''akov.   ');
  21.      NormVideo;
  22.      Writeln('Copyright(c) 1985');
  23.      LowVideo;
  24.      Writeln;
  25.      Write('Measures average access time of ');
  26.      NormVideo;
  27.      Write('IBM-PC/XT');
  28.      LowVideo;
  29.      Write(' and ');
  30.      NormVideo;
  31.      Write('IBM-PC/AT');
  32.      LowVideo;
  33.      Writeln(' hard disk');
  34.      Writeln;
  35. End;
  36.